O6003(FINISH SQUARE/ RECTANGLE)
(ABSOLUTE)
(WORKS)

(FORMAT G65/G66 TXYKREFS)
(T = #20 - TOOL DIAMETER)
(X = #24 - FINAL SIZE -X- DIM.)
(Y = #25 - FINAL SIZE -Y- DIM.)
(K = #6 - PART CORNER RAD./ SIDES)
(R = #18 - R PLANE)
(E = #8 - END OF PROFILE IN Z)
(F = #9 - FEEDRATE)
(S = #19 - # OF SPRING PASSES)
(***************************)

IF[#19GT3.]THEN#19=3.
#103=#5001
#104=[#103-.1]-[#24/2]
#105=#5002
#106=[#105+.1]+[[#20/2]+[#25/2]]
#121=#103+[[#24/2]-#6]
#131=#105+[[#25/2]-#6]
#122=#103-[[#24/2]-#6]
#132=#105+[[#25/2]-#6]
#123=#103-[[#24/2]-#6]
#133=#105-[[#25/2]-#6]
#124=#103+[[#24/2]-#6]
#134=#105-[[#25/2]-#6]
#107=[#20/2]+#6
#149=#19
G0G90X#104Y#106
Z[#8+.1]
G1Z#8F#9
G41Y[#132+#107]
WHILE[#149GE0]DO1
#149=#149-1.
G1X#121F#9
G02X[#121+#107]Y#131J-#107
G1Y#134
G02X#124Y[#134-#107]I-#107
G1X#123
G02X[#123-#107]Y#133J#107
G1Y#132
G02X#122Y[#132+#107]I#107
END1
G03X[#122+.1]Y[[#132+#107]+.1]J.1
G0G90Z#18
G40X#103Y#105
M99
